0 GOSUB 9000 1 END 4 REM 5 REM LOCATION $D011 - 27 NORMAL 6 REM VARIOUS CONTROL BITS 7 REM 19 REM 20 FORJ=31TO24STEP-1:POKE53265,J:FORA=1TO500:NEXTA,J:REM SCROLL SCREEN VERTICALLY 30 POKE53265,27-8: REM NARROW HEIGHT 40 POKE53265,27-16: REM BLANK THE SCREEN 45 POKE53265,27+32: REM SWITCH TO HIRES MODE 50 POKE53265,27+64: REM EXTENDED COLOR MODE 59 REM 60 REM 61 REM LOCATION $D016 - 8 NORMAL 62 REM VARIOUS CONTROL BITS 63 REM 70 FORJ=8TO8+7 :POKE53270,J:FORA=1TO600:NEXTA,J: REM HORIZONTAL SCROLL 80 POKE53270,8-0: REM NARROW WIDTH 90 POKE53270,8+16 :REM SET MULTICOLOR MODE 100 POKE53270,8+32:POKE53270,8:REM RESET VIC CHIP. BOTH POKES REQUIRED. 109 REM 110 REM 111 REM LOCATION $D018 - 21 NORMAL 112 REM SCREEN, CHARACTER SET LOCATIONS 113 REM 114 REM 120 REM 4,5,6,7 BITS DETERMINE WHICH 1K BLOCK IS SCREEN 130 REM 1,2,3 BITS DETERMINE WHICH 2K BLOCK IS CHARACTER SET 140 REM IN HIRES MODE LOCATION OF BITMAP IS DETERMINED BY BIT 3 150 REM BIT3 SET =BITMAP OF TOP 8K BLOCK CLEAR =OF BOTTOM 8K BLOCK 152 REM 153 REM 154 REM LOCATION $D012 & 7BIT $D011 - READING WHICH SCREEN LINE IS BEING SCANNED 155 REM WRITING A VALUE MEANS INTERRUPT AT SCAN LINE 156 REM 157 REM 160 REM $D013 X-LIGHT PEN POSITION 170 REM $D014 Y-LIGHT PEN POSITION 180 REM CAPABLE OF INTERRUPTING PROCESSOR 190 REM 200 REM 210 REM $D01A - INTERRUPT ENABLE 211 REM BIT0 - RASTER INT. ENABLE 212 REM BIT1 - INTERRUPT ON SPRITE-BACK- GROUND COLLISION 213 REM BIT1 - INTERRUPT ON SPRITE- SPRITE COLLISION 214 REM BIT3 - ENABLE LIGHT PEN INTERRUPT 215 REM 216 REM 217 REM $D019 -INTERRUPT FLAG REGISTER 218 REM THE INDICATED BIT IS SET ON INDICATED EVENT 219 REM THE PROCESSOR WILL BE INTERRUPTED IF ONE OF ABOVE BITS SET 221 REM BIT0 - RASTER MATCHES PRESET VALUE 222 REM BIT1 - SPRITE-SCREEN COLLISION HAS OCCURRED 223 REM BIT2 - SPRITE-SPRITE COLLISION HAS OCCURRED 224 REM BIT3 - SIGNAL FROM LIGHT PEN, LOCATION OF PEN IN REGISTERS 225 REM TURN OFF FLAG BY SETTING BIT (VERY STRANGE) 228 REM 229 REM 230 REM LOCATIONS $D020 TO $D026 - SET COLOR PARAMETERS 231 REM 4 LOW BITS ONLY ARE SIGNIFIGANT 232 REM $D020 - BORDER $D021 - SCREEN 233 REM $D022 - MULTICOLOR1 $D023 - MULTICOLOR2 234 REM $D024 - MULTICOLOR3 $D025 - SPRITE MULTICOLOR1 235 REM $D026 - SPRITE MULTICOLOR2 240 REM 241 REM 250 REM LOCATION (LAST BYTE OF SCREEN +8) 251 REM NORMAL $07F8 TO $07FF 252 REM DETERMINES MEMORY BLOCK WHICH IS USED BY VIC2 CHIP TO DRAW SPRITES 0-7 253 REM THERE ARE 256 64-BYTE BLOCKS IN 16K VIDEO MEMORY 254 REM 260 REM 261 REM LOCATION $D015 - SPRITE ENABLE REGISTER 262 REM BIT0 - ENABLE SPRITE 0 BIT1 - ENABLE SPRITE 1 263 REM ETC. BIT7 - ENABLE SPRITE 7 264 REM 265 REM 270 REM LOCATION $D017 - SPRITE Y-EXPAND 271 REM BIT0 SET - DOUBLE SPRITE0 WIDTH BIT1 SET - DOUBLE SPRITE1 WIDTH 272 REM ETC. 279 REM 280 REM 290 REM LOCATION $D01D -SPRITE X-EXPAND 291 REM BIT0 SET - DOUBLE SPRITE0 HEIGHT BIT1 SET - DOUBLE SPRITE1 HEIGHT 292 REM ETC. 297 REM 298 REM 299 REM $D000 TO $D010 - PUT SPRITE AT DESIRED POSITION 300 REM LOCATION $D000 -SPRITE0 X-POS. $D001 -SPRITE0 Y-POS. 302 REM $D002 - SPRITE1 X-POSITION $D003 - SPRITE1 Y-POSITION 303 REM ETC. 304 REM $D00E - SPRITE7 X-POSITION $D00F - SPRITE7 Y-POSITION 306 REM 309 REM 320 REM $D010 - HIGHBIT OF X-POSITION 321 REM SCREEN IS 320 BITS WIDE AND 9 BITS ARE REQUIRED 325 REM 326 REM 330 REM $D01B - SPRITE OR BACKGROUND PRIORITY 331 REM BIT0 SET - SPRITE0 WILL PASS BEHIND CHARACTERS 332 REM BIT0 CLR - WILL PASS OVER CHARACTERS 333 REM ETC. 337 REM 340 REM 341 REM $D027 TO $D02E - SELECT SPRITE COLORS 342 REM $D027 - SELECT(0-15) SPRITE0 COLOR 343 REM $D028 - SELECT(0-15) SPRITE1 COLOR 344 REM ETC. 345 REM 349 REM 350 REM $D01C - MAKE SPRITE APPEAR IN MULTICOLOR MODE 351 REM - COLORS IN $D025,$D026, ONE OF $D027-$D02E 352 REM BIT0 SET - SPRITE0 IN MULTICOLOR BIT1 SET - SPRITE1 IN MULTICOLOR 354 REM ETC. 359 REM 360 REM 370 REM $D01E - TELLS WHICH SPRITES HAVE COLLIDED (IF ANY) 371 REM BIT0 SET - SPRITE0 HAS COLLIDED WITH ANOTHER SPRITE 373 REM BIT1 SET - SPRITE1 HAS COLLIDED WITH ANOTHER SPRITE 375 REM ETC. 377 REM 378 REM 380 REM $D01F -TELLS WHICH SPRITES HAVE COLLIDED WITH BACKGROUND 381 REM - IF ANY 383 REM BIT0 SET - SPRITE0 HAS COLLIDED WITH BACKGROUND 385 REM ETC. 390 REM 400 REM 1000 POKE53265,27:REM RESTORE NORMAL SCREEN 1010 POKE53270,8 :END 9000 PRINTCHR$(14)"[147][212]HIS IS NOT A PROGRAM. [204]IST TO RECEIVE 9010 [153]"INFORMATION ABOUT THE C-64'S VIDEO CHIP. 9020 RETURN